home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / BBS_UTL / DDPLUS71 / RIPLINK.ZIP / RIPLINK.PA2 < prev    next >
Text File  |  1994-07-05  |  6KB  |  148 lines
  1. {Include file for RipLink(tm) - Copyright (C) 1994 by InterProgramming}
  2. {                               All rights reserved                   }
  3.  
  4. { This file contains the tables for the font adjustment for the Buttons }
  5.  
  6. Type
  7.   MetricRec = record
  8.     Top,
  9.     Bow,
  10.     Base,
  11.     Drop : word;
  12.   end;
  13.  
  14.   MetricArrayType = Array[0..10,1..10] of MetricRec;
  15.  
  16. Const
  17.   MetricArray : MetricArrayType =
  18.   (((Top: 0; Bow: 2; Base: 6; Drop: 7),
  19.     (Top: 0; Bow: 4; Base:13; Drop:15),
  20.     (Top: 0; Bow: 6; Base:20; Drop:23),
  21.     (Top: 0; Bow: 8; Base:27; Drop:31),
  22.     (Top: 0; Bow:10; Base:34; Drop:39),  {Default Font : 0}
  23.     (Top: 0; Bow:12; Base:41; Drop:47),
  24.     (Top: 0; Bow:14; Base:48; Drop:55),
  25.     (Top: 0; Bow:16; Base:55; Drop:63),
  26.     (Top: 0; Bow:18; Base:62; Drop:71),
  27.     (Top: 0; Bow:20; Base:69; Drop:79)),
  28.  
  29.    ((Top: 6; Bow:10; Base:18; Drop:22),
  30.     (Top: 6; Bow:11; Base:20; Drop:24),
  31.     (Top: 8; Bow:13; Base:23; Drop:28),
  32.     (Top:10; Bow:17; Base:31; Drop:38),
  33.     (Top:13; Bow:23; Base:41; Drop:50),  {Triplex Font : 1}
  34.     (Top:16; Bow:28; Base:51; Drop:62),
  35.     (Top:20; Bow:34; Base:62; Drop:76),
  36.     (Top:25; Bow:42; Base:77; Drop:94),
  37.     (Top:30; Bow:51; Base:93; Drop:114),
  38.     (Top:40; Bow:67; Base:124;Drop:152)),
  39.  
  40.    ((Top: 2; Bow: 3; Base: 5; Drop: 6),
  41.     (Top: 2; Bow: 4; Base: 6; Drop: 7),
  42.     (Top: 2; Bow: 3; Base: 6; Drop: 7),
  43.     (Top: 3; Bow: 5; Base: 9; Drop:11),
  44.     (Top: 4; Bow: 7; Base:12; Drop:14),  {Small Font : 2}
  45.     (Top: 5; Bow: 9; Base:15; Drop:18),
  46.     (Top: 6; Bow:10; Base:13; Drop:22),
  47.     (Top: 7; Bow:12; Base:22; Drop:27),
  48.     (Top: 9; Bow:15; Base:27; Drop:33),
  49.     (Top:12; Bow:20; Base:36; Drop:44)),
  50.  
  51.    ((Top: 7; Bow:11; Base:19; Drop:23),
  52.     (Top: 7; Bow:12; Base:21; Drop:25),
  53.     (Top: 9; Bow:14; Base:24; Drop:29),
  54.     (Top:11; Bow:18; Base:32; Drop:39),
  55.     (Top:14; Bow:24; Base:42; Drop:51),  {Sans Serif Font : 3}
  56.     (Top:18; Bow:30; Base:53; Drop:64),
  57.     (Top:22; Bow:36; Base:64; Drop:78),
  58.     (Top:28; Bow:45; Base:80; Drop:97),
  59.     (Top:33; Bow:54; Base:96; Drop:117),
  60.     (Top:74; Bow:102;Base:158;Drop:186)),
  61.  
  62.    ((Top: 7; Bow:11; Base:19; Drop:23),
  63.     (Top: 7; Bow:12; Base:21; Drop:25),
  64.     (Top: 9; Bow:14; Base:24; Drop:29),
  65.     (Top:11; Bow:18; Base:32; Drop:39),
  66.     (Top:14; Bow:24; Base:42; Drop:51),  {Gothic Font : 4}
  67.     (Top:18; Bow:30; Base:53; Drop:64),
  68.     (Top:22; Bow:36; Base:64; Drop:78),
  69.     (Top:28; Bow:45; Base:80; Drop:97),
  70.     (Top:33; Bow:54; Base:96; Drop:117),
  71.     (Top:44; Bow:72; Base:128;Drop:156)),
  72.  
  73.    ((Top:10; Bow:17; Base:22; Drop:29),
  74.     (Top:10; Bow:18; Base:24; Drop:32),
  75.     (Top:12; Bow:21; Base:27; Drop:36),
  76.     (Top:16; Bow:28; Base:37; Drop:49),
  77.     (Top:21; Bow:37; Base:49; Drop:65),  {Script Font : 5}
  78.     (Top:26; Bow:46; Base:61; Drop:80),
  79.     (Top:32; Bow:56; Base:74; Drop:98),
  80.     (Top:40; Bow:70; Base:92; Drop:122),
  81.     (Top:48; Bow:84; Base:111;Drop:147),
  82.     (Top:63; Bow:111;Base:147;Drop:195)),
  83.  
  84.    ((Top: 9; Bow:13; Base:21; Drop:25),
  85.     (Top: 9; Bow:14; Base:23; Drop:27),
  86.     (Top:11; Bow:16; Base:26; Drop:31),
  87.     (Top:14; Bow:21; Base:35; Drop:42),
  88.     (Top:18; Bow:28; Base:46; Drop:56),  {Simplex Font : 6}
  89.     (Top:23; Bow:35; Base:58; Drop:69),
  90.     (Top:28; Bow:42; Base:70; Drop:84),
  91.     (Top:35; Bow:52; Base:87; Drop:104),
  92.     (Top:42; Bow:63; Base:105;Drop:126),
  93.     (Top:56; Bow:84; Base:140;Drop:168)),
  94.  
  95.    ((Top: 5; Bow: 9; Base:17; Drop:21),
  96.     (Top: 5; Bow:10; Base:19; Drop:23),
  97.     (Top: 7; Bow:12; Base:22; Drop:27),
  98.     (Top: 9; Bow:16; Base:30; Drop:37),
  99.     (Top:12; Bow:22; Base:40; Drop:49),  {Triplex Script Font : 7}
  100.     (Top:15; Bow:27; Base:50; Drop:61),
  101.     (Top:19; Bow:33; Base:61; Drop:75),
  102.     (Top:24; Bow:41; Base:77; Drop:93),
  103.     (Top:29; Bow:50; Base:92; Drop:113),
  104.     (Top:39; Bow:67; Base:123;Drop:151)),
  105.  
  106.    ((Top: 8; Bow:12; Base:20; Drop:24),
  107.     (Top: 8; Bow:13; Base:22; Drop:26),
  108.     (Top:10; Bow:15; Base:25; Drop:30),
  109.     (Top:13; Bow:20; Base:34; Drop:41),
  110.     (Top:17; Bow:27; Base:45; Drop:54),  {Complex Font : 8}
  111.     (Top:22; Bow:34; Base:57; Drop:68),
  112.     (Top:27; Bow:41; Base:69; Drop:83),
  113.     (Top:34; Bow:51; Base:86; Drop:103),
  114.     (Top:41; Bow:62; Base:104;Drop:125),
  115.     (Top:54; Bow:83; Base:139;Drop:167)),
  116.  
  117.    ((Top: 7; Bow:14; Base:32; Drop:38),
  118.     (Top: 7; Bow:15; Base:35; Drop:41),
  119.     (Top: 9; Bow:18; Base:40; Drop:47),
  120.     (Top:12; Bow:24; Base:54; Drop:64),
  121.     (Top:16; Bow:32; Base:72; Drop:85),  {European Font : 9}
  122.     (Top:20; Bow:40; Base:96; Drop:106),
  123.     (Top:25; Bow:49; Base:109;Drop:129),
  124.     (Top:31; Bow:61; Base:136;Drop:161),
  125.     (Top:38; Bow:74; Base:164;Drop:194),
  126.     (Top:51; Bow:99; Base:219;Drop:259)),
  127.  
  128.    ((Top:11; Bow:17; Base:35; Drop:39),
  129.     (Top:13; Bow:19; Base:39; Drop:43),
  130.     (Top:14; Bow:22; Base:44; Drop:49),
  131.     (Top:19; Bow:29; Base:59; Drop:66),
  132.     (Top:27; Bow:39; Base:79; Drop:88),  {Bold Font : 10}
  133.     (Top:33; Bow:49; Base:99; Drop:110),
  134.     (Top:39; Bow:59; Base:119;Drop:133),
  135.     (Top:49; Bow:74; Base:149;Drop:166),
  136.     (Top:59; Bow:89; Base:179;Drop:200),
  137.     (Top:79; Bow:199;Base:239;Drop:267)));
  138.  
  139.   Low_Char : Array[0..255] of Byte =
  140.     (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  141.      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  142.      0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  143.      0,0,0,0,0,0,0,1,0,0,1,0,0,0,0,0,1,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,
  144.      1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,1,
  145.      0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
  146.      1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
  147.      0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0);
  148.